home *** CD-ROM | disk | FTP | other *** search
/ Usenet 1993 July / InfoMagic USENET CD-ROM July 1993.ISO / sources / unix / volume9 / elm2 / part09 < prev    next >
Encoding:
Internet Message Format  |  1987-03-08  |  50.3 KB
  1. Subject:  v09i009:  ELM Mail System, Part09/19
  2. Newsgroups: mod.sources
  3. Approved: rs@mirror.TMC.COM
  4.  
  5. Submitted by: Dave Taylor <hplabs!taylor>
  6. Mod.sources: Volume 9, Issue 9
  7. Archive-name: elm2/Part09
  8.  
  9. #! /bin/sh
  10. # This is a shell archive.  Remove anything before this line,
  11. # then unpack it by saving it in a file and typing "sh file".
  12. # If this archive is complete, you will see the message:
  13. #        "End of archive 9 (of 19)."
  14. # Contents:  Makefile Makefile.mstr src/forms.c src/return_addr.c
  15. #   src/save_opts.c
  16. PATH=/bin:/usr/bin:/usr/ucb ; export PATH
  17. echo shar: Extracting \"Makefile\" \(9596 characters\)
  18. if test -f Makefile ; then 
  19.   echo shar: Will not over-write existing file \"Makefile\"
  20. else
  21. sed "s/^X//" >Makefile <<'END_OF_Makefile'
  22. X#
  23. X#  Makefile for the entire ELM mail system
  24. X#
  25. X#         (C) Copyright 1986, Dave Taylor
  26. X#
  27. X#  Last modification: October 8th, 1986
  28. X
  29. XSHELL=/bin/sh
  30. X
  31. X#########################
  32. X#
  33. X# The following entries need to be customized for the local site:  
  34. X#    The first is the address of the data-cassette drive to allow
  35. X# easy tape copies to be made, and the second is the final location 
  36. X# that all the software should be installed in when 'make install'
  37. X# is run.
  38. X#
  39. X#########################
  40. X
  41. XTAPE=   /dev/rct 
  42. XDEST=   /usr/local/bin
  43. X
  44. XLIB=    /usr/local/lib
  45. XMAN=    /usr/man/man1
  46. XCATMAN= /usr/man/cat1
  47. XSHAR=   /usr/local/bin/shar -s 60000
  48. X
  49. XDEFINE = -DBSD
  50. XLIB2   = -lcurses
  51. X
  52. X#########################
  53. X
  54. XLIBS=   -ltermcap
  55. XCFLAGS= -O
  56. XCC=    /bin/cc
  57. XRM=    /bin/rm -f
  58. XMV=     /bin/mv -f
  59. XCP=    /bin/cp
  60. X
  61. X# if you want to use "nroff", change this...
  62. X
  63. XFORMATTER = /usr/bin/troff
  64. XTBL       = cat
  65. X
  66. XDOCS=   Alias.guide Config.guide Elm.coversheet Filter.guide Ref.guide     \
  67. X    Forms.guide Users.guide answer.1 autoreply.1 checkalias.1          \
  68. X    elm.1 fastmail.1 filter.1 from.1 listalias.1 messages.1 newalias.1 \
  69. X    newmail.1 printmail.1 readmsg.1 trim-headers.1 wnewmail.1
  70. X
  71. XUTILSRC= utils/answer.c utils/arepdaemon.c utils/autoreply.c           \
  72. X    utils/fastmail.c utils/from.c utils/newalias.c \
  73. X    utils/newmail.c utils/printmail.c utils/readmsg.c utils/wnewmail.c \
  74. X    utils/trim-headers
  75. X
  76. XFILTSRC= filter/actions.c filter/filter.c filter/parse.c filter/rules.c     \
  77. X    filter/summarize.c filter/utils.c
  78. X
  79. XELMSRC=    src/addr_utils.c src/alias.c src/aliasdb.c src/aliaslib.c src/args.c  \
  80. X    src/bounceback.c src/builtin.c src/calendar.c src/connect_to.c          \
  81. X    src/curses.c src/date.c src/delete.c src/domains.c src/edit.c          \
  82. X    src/editmsg.c src/elm.c src/encode.c src/errno.c src/file.c          \
  83. X    src/file_utils.c src/fileio.c src/forms.c src/getopt.c src/hdrconfg.c \
  84. X    src/help.c src/initialize.c src/input_utils.c src/leavembox.c          \
  85. X    src/limit.c src/mailmsg1.c src/mailmsg2.c src/mailtime.c src/mkhdrs.c \
  86. X    src/newmbox.c src/opt_utils.c src/options.c src/output_utils.c        \
  87. X    src/pattern.c src/pmalloc.c src/quit.c src/read_rc.c src/remail.c     \
  88. X    src/reply.c src/return_addr.c src/save_opts.c src/savecopy.c          \
  89. X    src/screen.c src/showmsg.c src/signals.c src/softkeys.c src/sort.c    \
  90. X    src/string2.c src/strings.c src/syscall.c src/utils.c src/validname.c
  91. X
  92. XMISCHDRS  = hdrs/defs.h hdrs/sysdefs.h
  93. XELMHDRS   = hdrs/headers.h 
  94. XFILTHDRS  = hdrs/filter.h
  95. XMAINHDRS  = hdrs/elm.h
  96. X
  97. X################
  98. X
  99. Xall:    bin/elm filter utils 
  100. X    @echo Everything is up to date!
  101. X
  102. Xdocumentation:  doc/Users.fmtd doc/Ref.fmtd doc/Config.fmtd doc/Alias.fmtd \
  103. X        doc/Form.fmtd doc/Filter.fmtd
  104. X    
  105. Xdoc/Users.fmtd: doc/Users.guide
  106. X    ${TBL} doc/Users.guide | ${FORMATTER} -mm > doc/Users.fmtd
  107. X
  108. Xdoc/Form.fmtd: doc/Form.guide
  109. X    ${FORMATTER} -mm doc/Form.guide > doc/Form.fmtd
  110. X
  111. Xdoc/Filter.fmtd: doc/Filter.guide
  112. X    ${FORMATTER} -mm doc/Filter.guide > doc/Filter.fmtd
  113. X
  114. Xdoc/Ref.fmtd: doc/Ref.guide
  115. X    ${FORMATTER} -mm doc/Ref.guide > doc/Ref.fmtd
  116. X
  117. Xdoc/Config.fmtd:  doc/Config.guide
  118. X    ${TBL} doc/Config.guide | ${FORMATTER} -mm > doc/Config.fmtd
  119. X
  120. Xdoc/Alias.fmtd:  doc/Alias.guide
  121. X    ${FORMATTER} -mm doc/Alias.guide > doc/Alias.fmtd
  122. X
  123. Xbin/elm: ${ELMSRC} ${MISCHDRS} ${ELMHDRS} ${MAINHDRS}
  124. X    cd src;make 'DEFINE=${DEFINE}' 'LIB2=${LIB2}' ../bin/elm
  125. X    
  126. Xbin/utils: ${UTILSRC} ${MISCHHDRS}
  127. X    cd utils; make 'DEFINE=${DEFINE}' 'LIBS=${LIB2}' all
  128. X
  129. Xbin/filter: ${FILTSRC} ${FILTHDR}
  130. X    cd filter; make 'DEFINE=${DEFINE}' 'LIBS=${LIB2}' all
  131. X
  132. Xinstall: all
  133. X    ${CP} bin/elm          ${DEST}/elm
  134. X    ${CP} bin/from         ${DEST}/from
  135. X    ${CP} bin/newalias     ${DEST}/newalias
  136. X    ${CP} bin/printmail    ${DEST}/printmail
  137. X    ${CP} bin/fastmail     ${DEST}/fastmail
  138. X    ${CP} bin/readmsg      ${DEST}/readmsg
  139. X    ${CP} bin/newmail      ${DEST}/newmail
  140. X    ${CP} bin/wnewmail     ${DEST}/wnewmail
  141. X    ${CP} bin/checkalias   ${DEST}/checkalias
  142. X    ${CP} bin/messages     ${DEST}/messages
  143. X    ${CP} bin/trim-headers ${DEST}/trim-headers
  144. X    ${CP} bin/arepdaemon   ${DEST}/arepdaemon
  145. X    ${CP} bin/autoreply    ${DEST}/autoreply
  146. X    ${CP} bin/listalias    ${DEST}/listalias
  147. X    ${CP} bin/filter       ${DEST}/filter
  148. X    ${RM} ${CATMAN}/elm.1 ${CATMAN}/from.1 \
  149. X          ${CATMAN}/newalias.1 ${CATMAN}/printmail.1 \
  150. X          ${CATMAN}/fastmail.1 ${CATMAN}/elm.1 \
  151. X          ${CATMAN}/readmsg.1 ${CATMAN}/answer.1 \
  152. X          ${CATMAN}/newmail.1 ${CATMAN}/checkalias.1 \
  153. X          ${CATMAN}/autoreply.1 ${CATMAN}/wnewmail.1 \
  154. X          ${CATMAN}/messages.1 ${CATMAN}/trim-headers.1 \
  155. X          ${CATMAN}/listalias.1 ${CATMAN}/filter.1
  156. X    ${CP} doc/elm.1        ${MAN}/elm.1
  157. X    ${CP} doc/from.1       ${MAN}/from.1
  158. X    ${CP} doc/newalias.1   ${MAN}/newalias.1
  159. X    ${CP} doc/printmail.1  ${MAN}/printmail.1
  160. X    ${CP} doc/fastmail.1   ${MAN}/fastmail.1
  161. X    ${CP} doc/checkalias.1 ${MAN}/checkalias.1
  162. X    ${CP} doc/messages.1   ${MAN}/messages.1
  163. X    ${CP} doc/trim-headers.1 ${MAN}/trim-headers.1
  164. X    ${CP} doc/autoreply.1  ${MAN}/autoreply.1
  165. X    ${CP} doc/answer.1     ${MAN}/answer.1
  166. X    ${CP} doc/readmsg.1    ${MAN}/readmsg.1
  167. X    ${CP} doc/newmail.1    ${MAN}/newmail.1
  168. X    ${CP} doc/wnewmail.1   ${MAN}/wnewmail.1
  169. X    ${CP} doc/listalias.1  ${MAN}/listalias.1
  170. X    ${CP} doc/filter.1     ${MAN}/filter.1
  171. X    ${CP} doc/elm-help.?   ${LIB}
  172. X    ${CP} doc/elmrc-info   ${LIB}
  173. X    chmod a+rx ${DEST}/from ${DEST}/newalias \
  174. X           ${DEST}/printmail ${DEST}/fastmail \
  175. X           ${DEST}/readmsg ${DEST}/trim-headers \
  176. X           ${DEST}/checkalias ${DEST}/autoreply \
  177. X           ${DEST}/newmail ${DEST}/wnewmail ${DEST}/messages \
  178. X           ${DEST}/listalias
  179. X    chgrp mail ${DEST}/elm ${DEST}/filter
  180. X    chmod 2755 ${DEST}/elm ${DEST}/filter
  181. X    @echo Done with installation.
  182. X
  183. Xrmt-install: remote-defined
  184. X    @echo " "
  185. X    @echo Warning: This assumes "install" has been done on the
  186. X    @echo "         remote machine.  If this is not the case you"
  187. X    @echo "         better hit BREAK quickly!"
  188. X    @echo " "
  189. X    ${CP} ${REMOTE}${DEST}/elm          ${DEST}/elm
  190. X    ${CP} ${REMOTE}${DEST}/from         ${DEST}/from
  191. X    ${CP} ${REMOTE}${DEST}/newalias     ${DEST}/newalias
  192. X    ${CP} ${REMOTE}${DEST}/printmail    ${DEST}/printmail
  193. X    ${CP} ${REMOTE}${DEST}/fastmail     ${DEST}/fastmail
  194. X    ${CP} ${REMOTE}${DEST}/readmsg      ${DEST}/readmsg
  195. X    ${CP} ${REMOTE}${DEST}/wnewmail     ${DEST}/wnewmail
  196. X    ${CP} ${REMOTE}${DEST}/newmail      ${DEST}/newmail
  197. X    ${CP} ${REMOTE}${DEST}/checkalias   ${DEST}/checkalias
  198. X    ${CP} ${REMOTE}${DEST}/messages     ${DEST}/messages
  199. X    ${CP} ${REMOTE}${DEST}/arepdaemon   ${DEST}/arepdaemon
  200. X    ${CP} ${REMOTE}${DEST}/autoreply    ${DEST}/autoreply
  201. X    ${CP} ${REMOTE}${DEST}/listalias    ${DEST}/listalias
  202. X    ${RM} ${CATMAN}/elm.1 \
  203. X          ${CATMAN}/from.1 \
  204. X              ${CATMAN}/newalias.1 \
  205. X          ${CATMAN}/printmail.1 \
  206. X          ${CATMAN}/fastmail.1 \
  207. X              ${CATMAN}/checkalias.1 \
  208. X              ${CATMAN}/autoreply.1 \
  209. X          ${CATMAN}/readmsg.1 \
  210. X          ${CATMAN}/answer.1 \
  211. X          ${CATMAN}/newmail.1 \
  212. X          ${CATMAN}/wnewmail.1 \
  213. X          ${CATMAN}/listalias.1 \
  214. X              ${CATMAN}/elm.1
  215. X    ${CP} ${REMOTE}${MAN}/elm.1        ${MAN}/elm.1
  216. X    ${CP} ${REMOTE}${MAN}/from.1       ${MAN}/from.1
  217. X    ${CP} ${REMOTE}${MAN}/newalias.1   ${MAN}/newalias.1
  218. X    ${CP} ${REMOTE}${MAN}/printmail.1  ${MAN}/printmail.1
  219. X    ${CP} ${REMOTE}${MAN}/fastmail.1   ${MAN}/fastmail.1
  220. X    ${CP} ${REMOTE}${MAN}/checkalias.1 ${MAN}/checkalias.1
  221. X    ${CP} ${REMOTE}${MAN}/autoreply.1  ${MAN}/autoreply.1
  222. X    ${CP} ${REMOTE}${MAN}/readmsg.1    ${MAN}/readmsg.1
  223. X    ${CP} ${REMOTE}${MAN}/answer.1     ${MAN}/answer.1
  224. X    ${CP} ${REMOTE}${MAN}/wnewmail.1   ${MAN}/wnewmail.1
  225. X    ${CP} ${REMOTE}${MAN}/newmail.1    ${MAN}/newmail.1
  226. X    ${CP} ${REMOTE}${MAN}/listalias.1  ${MAN}/listalias.1
  227. X    ${CP} ${REMOTE}${LIB}/elm-help.?   ${LIB}
  228. X    ${CP} ${REMOTE}${LIB}/elmrc-info   ${LIB}
  229. X    chmod a+rx ${DEST}/from ${DEST}/newalias ${DEST}/printmail \
  230. X               ${DEST}/fastmail ${DEST}/readmsg \
  231. X           ${DEST}/checkalias ${DEST}/autoreply ${DEST}/wnewmail \
  232. X           ${DEST}/newmail ${DEST}/messages ${DEST}/listalias
  233. X    chgrp mail ${DEST}/elm
  234. X    chmod 2755 ${DEST}/elm
  235. X    @echo everything is installed based on files from ${REMOTE}
  236. X
  237. Xsource: 
  238. X    tar cvf ${TAPE} bin/makelisting utils/*.c src/*.c doc/* hdrs/* \
  239. X    Instructions Makefile* utils/Makefile* src/Makefile* test/*    \
  240. X    utils/*.awk Overview filter/*.c filter/Makefile*
  241. X
  242. X# Note that the production for SHAR assumes a pretty snazzy shar program
  243. X# that can break down the output into a number of files as needed...
  244. X#   The current threshold is 60,000 bytes per file, for email/netnews
  245. X
  246. Xshar:   
  247. X    ${SHAR} *
  248. X
  249. Xlint:
  250. X    lint ${UTILSRC} > lint.out
  251. X
  252. Xlisting:
  253. X    @echo listing all source files 
  254. X    @/bin/echo \\f > LISTING
  255. X    @echo adding file 'README'...
  256. X    @cat README >> LISTING
  257. X    @/bin/echo \\f >> LISTING
  258. X    @echo adding file 'Instructions...
  259. X    @cat Instructions >> LISTING
  260. X    @/bin/echo \\f >> LISTING
  261. X    @echo adding file 'Makefile'...
  262. X    @cat Makefile >> LISTING
  263. X    @bin/makelisting Makefile ${UTILSRC} src/Makefile src/*.c hdrs/*.h \
  264. X    ${FILTSRC}
  265. X    @echo LISTING generated.
  266. X
  267. Xelm-listing: 
  268. X    @echo listing just the ELM system source files
  269. X    @echo ' ' > src/LISTING
  270. X    @cd src ; make listing ; cd ..
  271. X    @echo LISTING generated \(in directory /src\).
  272. X
  273. Xclean:
  274. X    @cd src ; make clean 
  275. X    @cd utils; make clean
  276. X    @cd filter; make clean
  277. X    @echo All spurious files removed
  278. X
  279. Xelm: bin/elm
  280. Xfilter: bin/filter
  281. Xutils: bin/utils
  282. Xutils/checkalias:
  283. Xutils/messages:
  284. Xdoc/Users.guide:
  285. Xdoc/Ref.guide:
  286. Xdoc/Alias.guide:
  287. Xdoc/Config.guide:
  288. X
  289. Xremote-defined:
  290. X    @if ( "${REMOTE}" == "" ) then; \
  291. X       echo " " ; \
  292. X       echo "You need to define 'REMOTE' as the remote file system" ; \
  293. X       echo "for this particular command.   The easiest way to do " ; \
  294. X       echo "this is to type:" ;\
  295. X       echo "    make -f <makefile> REMOTE=<remote file system> rmt-install" ; \
  296. X       echo " " ; \
  297. X     endif
  298. X    @if ( "${REMOTE}" == "" ) exit 1
  299. END_OF_Makefile
  300. if test 9596 -ne `wc -c <Makefile`; then
  301.     echo shar: \"Makefile\" unpacked with wrong size!?
  302. fi
  303. # end of overwriting check
  304. fi
  305. echo shar: Extracting \"Makefile.mstr\" \(9581 characters\)
  306. if test -f Makefile.mstr ; then 
  307.   echo shar: Will not over-write existing file \"Makefile.mstr\"
  308. else
  309. sed "s/^X//" >Makefile.mstr <<'END_OF_Makefile.mstr'
  310. X#
  311. X#  Makefile for the entire ELM mail system
  312. X#
  313. X#         (C) Copyright 1986, Dave Taylor
  314. X#
  315. X#  Last modification: October 8th, 1986
  316. X
  317. XSHELL=/bin/sh
  318. X
  319. X#########################
  320. X#
  321. X# The following entries need to be customized for the local site:  
  322. X#    The first is the address of the data-cassette drive to allow
  323. X# easy tape copies to be made, and the second is the final location 
  324. X# that all the software should be installed in when 'make install'
  325. X# is run.
  326. X#
  327. X#########################
  328. X
  329. XTAPE=   >tapeunit< 
  330. XDEST=   >dest-dir<
  331. X
  332. XLIB=    /usr/local/lib
  333. XMAN=    /usr/man/man1
  334. XCATMAN= /usr/man/cat1
  335. XSHAR=   /usr/local/bin/shar -s 60000
  336. X
  337. XDEFINE = >os-define<
  338. XLIB2   = >lib2<
  339. X
  340. X#########################
  341. X
  342. XLIBS=   >libs<
  343. XCFLAGS= -O
  344. XCC=    >cc<
  345. XRM=    >rm<
  346. XMV=     >mv<
  347. XCP=    >cp<
  348. X
  349. X# if you want to use "nroff", change this...
  350. X
  351. XFORMATTER = >troff<
  352. XTBL       = >tbl<
  353. X
  354. XDOCS=   Alias.guide Config.guide Elm.coversheet Filter.guide Ref.guide     \
  355. X    Forms.guide Users.guide answer.1 autoreply.1 checkalias.1          \
  356. X    elm.1 fastmail.1 filter.1 from.1 listalias.1 messages.1 newalias.1 \
  357. X    newmail.1 printmail.1 readmsg.1 trim-headers.1 wnewmail.1
  358. X
  359. XUTILSRC= utils/answer.c utils/arepdaemon.c utils/autoreply.c           \
  360. X    utils/fastmail.c utils/from.c utils/newalias.c \
  361. X    utils/newmail.c utils/printmail.c utils/readmsg.c utils/wnewmail.c \
  362. X    utils/trim-headers
  363. X
  364. XFILTSRC= filter/actions.c filter/filter.c filter/parse.c filter/rules.c     \
  365. X    filter/summarize.c filter/utils.c
  366. X
  367. XELMSRC=    src/addr_utils.c src/alias.c src/aliasdb.c src/aliaslib.c src/args.c  \
  368. X    src/bounceback.c src/builtin.c src/calendar.c src/connect_to.c          \
  369. X    src/curses.c src/date.c src/delete.c src/domains.c src/edit.c          \
  370. X    src/editmsg.c src/elm.c src/encode.c src/errno.c src/file.c          \
  371. X    src/file_utils.c src/fileio.c src/forms.c src/getopt.c src/hdrconfg.c \
  372. X    src/help.c src/initialize.c src/input_utils.c src/leavembox.c          \
  373. X    src/limit.c src/mailmsg1.c src/mailmsg2.c src/mailtime.c src/mkhdrs.c \
  374. X    src/newmbox.c src/opt_utils.c src/options.c src/output_utils.c        \
  375. X    src/pattern.c src/pmalloc.c src/quit.c src/read_rc.c src/remail.c     \
  376. X    src/reply.c src/return_addr.c src/save_opts.c src/savecopy.c          \
  377. X    src/screen.c src/showmsg.c src/signals.c src/softkeys.c src/sort.c    \
  378. X    src/string2.c src/strings.c src/syscall.c src/utils.c src/validname.c
  379. X
  380. XMISCHDRS  = hdrs/defs.h hdrs/sysdefs.h
  381. XELMHDRS   = hdrs/headers.h 
  382. XFILTHDRS  = hdrs/filter.h
  383. XMAINHDRS  = hdrs/elm.h
  384. X
  385. X################
  386. X
  387. Xall:    bin/elm filter utils 
  388. X    @echo Everything is up to date!
  389. X
  390. Xdocumentation:  doc/Users.fmtd doc/Ref.fmtd doc/Config.fmtd doc/Alias.fmtd \
  391. X        doc/Form.fmtd doc/Filter.fmtd
  392. X    
  393. Xdoc/Users.fmtd: doc/Users.guide
  394. X    ${TBL} doc/Users.guide | ${FORMATTER} -mm > doc/Users.fmtd
  395. X
  396. Xdoc/Form.fmtd: doc/Form.guide
  397. X    ${FORMATTER} -mm doc/Form.guide > doc/Form.fmtd
  398. X
  399. Xdoc/Filter.fmtd: doc/Filter.guide
  400. X    ${TBL} doc/Filter.guide | ${FORMATTER} -mm > doc/Filter.fmtd
  401. X
  402. Xdoc/Ref.fmtd: doc/Ref.guide
  403. X    ${FORMATTER} -mm doc/Ref.guide > doc/Ref.fmtd
  404. X
  405. Xdoc/Config.fmtd:  doc/Config.guide
  406. X    ${TBL} doc/Config.guide | ${FORMATTER} -mm > doc/Config.fmtd
  407. X
  408. Xdoc/Alias.fmtd:  doc/Alias.guide
  409. X    ${FORMATTER} -mm doc/Alias.guide > doc/Alias.fmtd
  410. X
  411. Xbin/elm: ${ELMSRC} ${MISCHDRS} ${ELMHDRS} ${MAINHDRS}
  412. X    cd src;make 'DEFINE=${DEFINE}' 'LIB2=${LIB2}' ../bin/elm
  413. X    
  414. Xbin/utils: ${UTILSRC} ${MISCHHDRS}
  415. X    cd utils; make 'DEFINE=${DEFINE}' 'LIBS=${LIB2}' all
  416. X
  417. Xbin/filter: ${FILTSRC} ${FILTHDR}
  418. X    cd filter; make 'DEFINE=${DEFINE}' 'LIBS=${LIB2}' all
  419. X
  420. Xinstall: all
  421. X    ${CP} bin/elm          ${DEST}/elm
  422. X    ${CP} bin/from         ${DEST}/from
  423. X    ${CP} bin/newalias     ${DEST}/newalias
  424. X    ${CP} bin/printmail    ${DEST}/printmail
  425. X    ${CP} bin/fastmail     ${DEST}/fastmail
  426. X    ${CP} bin/readmsg      ${DEST}/readmsg
  427. X    ${CP} bin/newmail      ${DEST}/newmail
  428. X    ${CP} bin/wnewmail     ${DEST}/wnewmail
  429. X    ${CP} bin/checkalias   ${DEST}/checkalias
  430. X    ${CP} bin/messages     ${DEST}/messages
  431. X    ${CP} bin/trim-headers ${DEST}/trim-headers
  432. X    ${CP} bin/arepdaemon   ${DEST}/arepdaemon
  433. X    ${CP} bin/autoreply    ${DEST}/autoreply
  434. X    ${CP} bin/listalias    ${DEST}/listalias
  435. X    ${CP} bin/filter       ${DEST}/filter
  436. X    ${RM} ${CATMAN}/elm.1 ${CATMAN}/from.1 \
  437. X          ${CATMAN}/newalias.1 ${CATMAN}/printmail.1 \
  438. X          ${CATMAN}/fastmail.1 ${CATMAN}/elm.1 \
  439. X          ${CATMAN}/readmsg.1 ${CATMAN}/answer.1 \
  440. X          ${CATMAN}/newmail.1 ${CATMAN}/checkalias.1 \
  441. X          ${CATMAN}/autoreply.1 ${CATMAN}/wnewmail.1 \
  442. X          ${CATMAN}/messages.1 ${CATMAN}/trim-headers.1 \
  443. X          ${CATMAN}/listalias.1 ${CATMAN}/filter.1
  444. X    ${CP} doc/elm.1        ${MAN}/elm.1
  445. X    ${CP} doc/from.1       ${MAN}/from.1
  446. X    ${CP} doc/newalias.1   ${MAN}/newalias.1
  447. X    ${CP} doc/printmail.1  ${MAN}/printmail.1
  448. X    ${CP} doc/fastmail.1   ${MAN}/fastmail.1
  449. X    ${CP} doc/checkalias.1 ${MAN}/checkalias.1
  450. X    ${CP} doc/messages.1   ${MAN}/messages.1
  451. X    ${CP} doc/trim-headers.1 ${MAN}/trim-headers.1
  452. X    ${CP} doc/autoreply.1  ${MAN}/autoreply.1
  453. X    ${CP} doc/answer.1     ${MAN}/answer.1
  454. X    ${CP} doc/readmsg.1    ${MAN}/readmsg.1
  455. X    ${CP} doc/newmail.1    ${MAN}/newmail.1
  456. X    ${CP} doc/wnewmail.1   ${MAN}/wnewmail.1
  457. X    ${CP} doc/listalias.1  ${MAN}/listalias.1
  458. X    ${CP} doc/filter.1     ${MAN}/filter.1
  459. X    ${CP} doc/elm-help.?   ${LIB}
  460. X    ${CP} doc/elmrc-info   ${LIB}
  461. X    chmod a+rx ${DEST}/from ${DEST}/newalias \
  462. X           ${DEST}/printmail ${DEST}/fastmail \
  463. X           ${DEST}/readmsg ${DEST}/trim-headers \
  464. X           ${DEST}/checkalias ${DEST}/autoreply \
  465. X           ${DEST}/newmail ${DEST}/wnewmail ${DEST}/messages \
  466. X           ${DEST}/listalias
  467. X    chgrp mail ${DEST}/elm ${DEST}/filter
  468. X    chmod 2755 ${DEST}/elm ${DEST}/filter
  469. X    @echo Done with installation.
  470. X
  471. Xrmt-install: remote-defined
  472. X    @echo " "
  473. X    @echo Warning: This assumes "install" has been done on the
  474. X    @echo "         remote machine.  If this is not the case you"
  475. X    @echo "         better hit BREAK quickly!"
  476. X    @echo " "
  477. X    ${CP} ${REMOTE}${DEST}/elm          ${DEST}/elm
  478. X    ${CP} ${REMOTE}${DEST}/from         ${DEST}/from
  479. X    ${CP} ${REMOTE}${DEST}/newalias     ${DEST}/newalias
  480. X    ${CP} ${REMOTE}${DEST}/printmail    ${DEST}/printmail
  481. X    ${CP} ${REMOTE}${DEST}/fastmail     ${DEST}/fastmail
  482. X    ${CP} ${REMOTE}${DEST}/readmsg      ${DEST}/readmsg
  483. X    ${CP} ${REMOTE}${DEST}/wnewmail     ${DEST}/wnewmail
  484. X    ${CP} ${REMOTE}${DEST}/newmail      ${DEST}/newmail
  485. X    ${CP} ${REMOTE}${DEST}/checkalias   ${DEST}/checkalias
  486. X    ${CP} ${REMOTE}${DEST}/messages     ${DEST}/messages
  487. X    ${CP} ${REMOTE}${DEST}/arepdaemon   ${DEST}/arepdaemon
  488. X    ${CP} ${REMOTE}${DEST}/autoreply    ${DEST}/autoreply
  489. X    ${CP} ${REMOTE}${DEST}/listalias    ${DEST}/listalias
  490. X    ${RM} ${CATMAN}/elm.1 \
  491. X          ${CATMAN}/from.1 \
  492. X              ${CATMAN}/newalias.1 \
  493. X          ${CATMAN}/printmail.1 \
  494. X          ${CATMAN}/fastmail.1 \
  495. X              ${CATMAN}/checkalias.1 \
  496. X              ${CATMAN}/autoreply.1 \
  497. X          ${CATMAN}/readmsg.1 \
  498. X          ${CATMAN}/answer.1 \
  499. X          ${CATMAN}/newmail.1 \
  500. X          ${CATMAN}/wnewmail.1 \
  501. X          ${CATMAN}/listalias.1 \
  502. X              ${CATMAN}/elm.1
  503. X    ${CP} ${REMOTE}${MAN}/elm.1        ${MAN}/elm.1
  504. X    ${CP} ${REMOTE}${MAN}/from.1       ${MAN}/from.1
  505. X    ${CP} ${REMOTE}${MAN}/newalias.1   ${MAN}/newalias.1
  506. X    ${CP} ${REMOTE}${MAN}/printmail.1  ${MAN}/printmail.1
  507. X    ${CP} ${REMOTE}${MAN}/fastmail.1   ${MAN}/fastmail.1
  508. X    ${CP} ${REMOTE}${MAN}/checkalias.1 ${MAN}/checkalias.1
  509. X    ${CP} ${REMOTE}${MAN}/autoreply.1  ${MAN}/autoreply.1
  510. X    ${CP} ${REMOTE}${MAN}/readmsg.1    ${MAN}/readmsg.1
  511. X    ${CP} ${REMOTE}${MAN}/answer.1     ${MAN}/answer.1
  512. X    ${CP} ${REMOTE}${MAN}/wnewmail.1   ${MAN}/wnewmail.1
  513. X    ${CP} ${REMOTE}${MAN}/newmail.1    ${MAN}/newmail.1
  514. X    ${CP} ${REMOTE}${MAN}/listalias.1  ${MAN}/listalias.1
  515. X    ${CP} ${REMOTE}${LIB}/elm-help.?   ${LIB}
  516. X    ${CP} ${REMOTE}${LIB}/elmrc-info   ${LIB}
  517. X    chmod a+rx ${DEST}/from ${DEST}/newalias ${DEST}/printmail \
  518. X               ${DEST}/fastmail ${DEST}/readmsg \
  519. X           ${DEST}/checkalias ${DEST}/autoreply ${DEST}/wnewmail \
  520. X           ${DEST}/newmail ${DEST}/messages ${DEST}/listalias
  521. X    chgrp mail ${DEST}/elm
  522. X    chmod 2755 ${DEST}/elm
  523. X    @echo everything is installed based on files from ${REMOTE}
  524. X
  525. Xsource: 
  526. X    tar cvf ${TAPE} bin/makelisting utils/*.c src/*.c doc/* hdrs/* \
  527. X    Instructions Makefile* utils/Makefile* src/Makefile* test/*    \
  528. X    utils/*.awk Overview filter/*.c filter/Makefile*
  529. X
  530. X# Note that the production for SHAR assumes a pretty snazzy shar program
  531. X# that can break down the output into a number of files as needed...
  532. X#   The current threshold is 60,000 bytes per file, for email/netnews
  533. X
  534. Xshar:   
  535. X    ${SHAR} *
  536. X
  537. Xlint:
  538. X    lint ${UTILSRC} > lint.out
  539. X
  540. Xlisting:
  541. X    @echo listing all source files 
  542. X    @/bin/echo \\f > LISTING
  543. X    @echo adding file 'README'...
  544. X    @cat README >> LISTING
  545. X    @/bin/echo \\f >> LISTING
  546. X    @echo adding file 'Instructions...
  547. X    @cat Instructions >> LISTING
  548. X    @/bin/echo \\f >> LISTING
  549. X    @echo adding file 'Makefile'...
  550. X    @cat Makefile >> LISTING
  551. X    @bin/makelisting Makefile ${UTILSRC} src/Makefile src/*.c hdrs/*.h \
  552. X    ${FILTSRC}
  553. X    @echo LISTING generated.
  554. X
  555. Xelm-listing: 
  556. X    @echo listing just the ELM system source files
  557. X    @echo ' ' > src/LISTING
  558. X    @cd src ; make listing ; cd ..
  559. X    @echo LISTING generated \(in directory /src\).
  560. X
  561. Xclean:
  562. X    @cd src ; make clean 
  563. X    @cd utils; make clean
  564. X    @cd filter; make clean
  565. X    @echo All spurious files removed
  566. X
  567. Xelm: bin/elm
  568. Xfilter: bin/filter
  569. Xutils: bin/utils
  570. Xutils/checkalias:
  571. Xutils/messages:
  572. Xdoc/Users.guide:
  573. Xdoc/Ref.guide:
  574. Xdoc/Alias.guide:
  575. Xdoc/Config.guide:
  576. X
  577. Xremote-defined:
  578. X    @if ( "${REMOTE}" == "" ) then; \
  579. X       echo " " ; \
  580. X       echo "You need to define 'REMOTE' as the remote file system" ; \
  581. X       echo "for this particular command.   The easiest way to do " ; \
  582. X       echo "this is to type:" ;\
  583. X       echo "    make -f <makefile> REMOTE=<remote file system> rmt-install" ; \
  584. X       echo " " ; \
  585. X     endif
  586. X    @if ( "${REMOTE}" == "" ) exit 1
  587. END_OF_Makefile.mstr
  588. if test 9581 -ne `wc -c <Makefile.mstr`; then
  589.     echo shar: \"Makefile.mstr\" unpacked with wrong size!?
  590. fi
  591. # end of overwriting check
  592. fi
  593. echo shar: Extracting \"src/forms.c\" \(9070 characters\)
  594. if test -f src/forms.c ; then 
  595.   echo shar: Will not over-write existing file \"src/forms.c\"
  596. else
  597. sed "s/^X//" >src/forms.c <<'END_OF_src/forms.c'
  598. X/**                forms.c                **/
  599. X
  600. X/** This set of files supports the 'forms' options (AT&T Mail Forms) to
  601. X    the mail system.  The specs are drawn from a document from AT&T entitled
  602. X    "Standard for Exchanging Forms on AT&T Mail", version 1.9.
  603. X
  604. X    (C) Copyright 1986, Dave Taylor
  605. X**/
  606. X
  607. X/** Some notes on the format of a FORM;
  608. X
  609. X    First off, in AT&T Mail parlance, this program only supports SIMPLE
  610. X    forms, currently.  This means that while each form must have three
  611. X     sections;
  612. X
  613. X        [options-section]
  614. X        ***
  615. X        [form-image]
  616. X        ***
  617. X        [rules-section]
  618. X
  619. X    this program will ignore the first and third sections completely.  The
  620. X    program will assume that the user merely enteres the form-image section,
  621. X    and will append and prepend the triple asterisk sequences that *MUST*
  622. X    be part of the message.  The messages are also expected to have a 
  623. X    specific header - "Content-Type: mailform" - which will be added on all
  624. X    outbound mail and checked on inbound...
  625. X**/
  626. X
  627. X#include "headers.h"
  628. X#include <errno.h>
  629. X
  630. Xextern int errno;
  631. X
  632. Xchar *error_name(), *strcat(), *strcpy();
  633. X
  634. Xcheck_form_file(filename)
  635. Xchar *filename;
  636. X{
  637. X    /** This routine returns the number of fields in the specified file,
  638. X        or -1 if an error is encountered. **/
  639. X
  640. X    FILE *form;
  641. X    char buffer[SLEN];
  642. X    register int field_count = 0;
  643. X
  644. X    if ((form = fopen(filename, "r")) == NULL) {
  645. X      error2("Error %s trying to open %s to check fields!",
  646. X          error_name(errno), filename);
  647. X      return(-1);
  648. X    }
  649. X    
  650. X    while (fgets(buffer, SLEN, form) != NULL) {
  651. X      field_count += occurances_of(COLON, buffer);
  652. X    }
  653. X
  654. X    fclose(form);
  655. X
  656. X    return(field_count);
  657. X}
  658. X
  659. Xformat_form(filename)
  660. Xchar *filename;
  661. X{
  662. X    /** This routine accepts a validated file that is the middle 
  663. X        section of a form message and prepends and appends the appropriate 
  664. X        instructions.  It's pretty simple. 
  665. X        This returns the number of forms in the file, or -1 on errors
  666. X    **/
  667. X    
  668. X    FILE *form, *newform;
  669. X    char  newfname[SLEN], buffer[SLEN];
  670. X    register form_count = 0;
  671. X
  672. X    dprint1(4, "Formatting form file '%s'\n", filename);
  673. X
  674. X    /** first off, let's open the files... **/
  675. X
  676. X    if ((form = fopen(filename, "r")) == NULL) {
  677. X      error("Can't read the message to validate the form!");
  678. X      dprint2(1,
  679. X              "** Error encountered opening file \"%s\" - %s (check_form) **\n",
  680. X          filename, error_name(errno));
  681. X      return(-1);
  682. X    }
  683. X
  684. X    sprintf(newfname, "%s%d", temp_form_file, getpid());
  685. X
  686. X    if ((newform = fopen(newfname, "w")) == NULL) {
  687. X      error("Couldn't open newform file for form output!");
  688. X      dprint2(1,
  689. X              "** Error encountered opening file \"%s\" - %s (check_form) **\n",
  690. X          newfname, error_name(errno));
  691. X      return(-1);
  692. X    }
  693. X
  694. X    /** the required header... **/
  695. X
  696. X    /* these are actually the defaults, but let's be sure, okay? */
  697. X
  698. X    fprintf(newform, "WIDTH=78\nTYPE=SIMPLE\nOUTPUT=TEXT\n***\n");
  699. X
  700. X    /** and let's have some fun transfering the stuff across... **/
  701. X
  702. X    while (fgets(buffer, SLEN, form) != NULL) {
  703. X      fputs(buffer, newform);
  704. X      form_count += occurances_of(COLON, buffer);
  705. X    }
  706. X
  707. X    fprintf(newform, "***\n");    /* that closing bit! */
  708. X
  709. X    fclose(form);
  710. X    fclose(newform);
  711. X
  712. X    if (form_count > 0) {
  713. X      if (unlink(filename) != 0) {
  714. X        error2("Error %s unlinking file %s", error_name(errno), filename);
  715. X        return(-1);
  716. X      }
  717. X      if (link(newfname, filename)) {
  718. X        error3("Error %s linking %s to %s", error_name(errno), 
  719. X            newfname, filename);
  720. X        return(-1);
  721. X      }
  722. X    }
  723. X
  724. X    if (unlink(newfname)) {
  725. X      error2("Error %s unlinking file %s", error_name(errno), newfname);
  726. X      return(-1);    
  727. X    }
  728. X
  729. X    return(form_count);
  730. X}
  731. X
  732. Xint
  733. Xmail_filled_in_form(address, subject)
  734. Xchar *address, *subject;
  735. X{
  736. X    /** This is the interesting routine.  This one will read the
  737. X        message and prompt the user, line by line, for each of
  738. X        the fields...returns non-zero if it succeeds
  739. X    **/
  740. X
  741. X    FILE           *fd;
  742. X    register int lines = 0, count;
  743. X    char         buffer[SLEN], *ptr;
  744. X
  745. X    dprint2(4, "replying to form with;\n\taddress=%s and\n\t subject=%s\n",
  746. X           address, subject);
  747. X
  748. X        if (fseek(mailfile, header_table[current-1].offset, 0) == -1) {
  749. X      dprint3(1,"Error: seek %ld resulted in errno %s (%s)\n", 
  750. X           header_table[current-1].offset, error_name(errno), 
  751. X           "mail_filled_in_form");
  752. X      error2("ELM [seek] couldn't read %d bytes into file (%s)",
  753. X             header_table[current-1].offset, error_name(errno));
  754. X      return(0);
  755. X        }
  756. X 
  757. X    /* now we can fly along and get to the message body... */
  758. X
  759. X    while ((ptr = fgets(buffer, SLEN, mailfile)) != NULL) {
  760. X      if (strlen(buffer) == 1)    /* <return> only */
  761. X        break;
  762. X      else if (strncmp(buffer,"From ", 5) == 0 && lines++ > 0) {
  763. X        error("No form in this message!?");
  764. X        return(0);
  765. X      }
  766. X    }
  767. X
  768. X    if (ptr == NULL) {
  769. X      error("No form in this message!?");
  770. X      return(0);
  771. X    }
  772. X
  773. X    dprint0(6,"- past header of form message -\n");
  774. X    
  775. X    /* at this point we're at the beginning of the body of the message */
  776. X
  777. X    /* now we can skip to the FORM-IMAGE section by reading through a 
  778. X       line with a triple asterisk... */
  779. X
  780. X    while ((ptr = fgets(buffer, SLEN, mailfile)) != NULL) {
  781. X      if (strcmp(buffer, "***\n") == 0)
  782. X        break;    /* we GOT it!  It's a miracle! */    
  783. X      else if (strncmp(buffer, "From ",5) == 0) {
  784. X        error("Badly constructed form.  Can't reply!");
  785. X        return(0);
  786. X      }
  787. X    }
  788. X
  789. X    if (ptr == NULL) {
  790. X      error("Badly constructed form.  Can't reply!");
  791. X      return(0);
  792. X    }
  793. X
  794. X    dprint0(6,"- skipped the non-forms-image stuff -\n");
  795. X    
  796. X    /* one last thing - let's open the tempfile for output... */
  797. X    
  798. X    sprintf(buffer, "%s%d", temp_form_file, getpid());
  799. X
  800. X    dprint1(2,"-- forms sending using file %s --\n", buffer);
  801. X
  802. X    if ((fd = fopen(buffer,"w")) == NULL) {
  803. X      error2("Can't open \"%s\" as output file! (%s)", buffer,
  804. X         error_name(errno));
  805. X      dprint2(1,"** Error %s encountered trying to open temp file %s;\n",
  806. X          error_name(errno), buffer);
  807. X      return(0);
  808. X    }
  809. X
  810. X    /* NOW we're ready to read the form image in and start prompting... */
  811. X
  812. X    Raw(OFF);
  813. X    ClearScreen();
  814. X
  815. X    while ((ptr = fgets(buffer, SLEN, mailfile)) != NULL) {
  816. X      dprint1(9,"- read %s", buffer);
  817. X      if (strcmp(buffer, "***\n") == 0) /* end of form! */
  818. X        break;
  819. X     
  820. X      switch ((count = occurances_of(COLON, buffer))) {
  821. X        case 0 : printf("%s", buffer);        /* output line */
  822. X             fprintf(fd, "%s", buffer);     
  823. X             break;
  824. X            case 1 : if (buffer[0] == COLON) {
  825. X                 printf(
  826. X"(Enter as many lines as needed, ending with a '.' by itself on a line)\n");
  827. X                     while (gets(buffer) != NULL)
  828. X                   if (strcmp(buffer, ".") == 0)
  829. X                     break;
  830. X                   else 
  831. X             fprintf(fd,"%s\n", buffer);
  832. X                 }
  833. X                 else 
  834. X              prompt_for_entry(buffer, fd);
  835. X                 break;
  836. X            default: prompt_for_multiple_entries(buffer, fd, count);
  837. X      }
  838. X    }
  839. X
  840. X    Raw(ON);
  841. X    fclose(fd);
  842. X
  843. X    /** let's just mail this off now... **/
  844. X
  845. X    mail_form(address, subject);
  846. X
  847. X    return(1);
  848. X}
  849. X
  850. Xprompt_for_entry(buffer, fd)
  851. Xchar *buffer;
  852. XFILE *fd;
  853. X{
  854. X    /** This is called with an entry of the form "prompt:" and will 
  855. X        display the prompt and save the prompt and the user reply
  856. X        in the file "fd"
  857. X    **/
  858. X    
  859. X    char mybuffer[SLEN];
  860. X
  861. X    no_ret(buffer);
  862. X
  863. X    dprint1(7, "prompt-for-entry \"%s\"\n", buffer);
  864. X
  865. X    printf("%s ", buffer);    fflush(stdout);
  866. X
  867. X    gets(mybuffer);
  868. X
  869. X    fprintf(fd, "%s: %s", buffer, mybuffer);
  870. X}
  871. X
  872. Xprompt_for_multiple_entries(buffer, fd, entries)
  873. Xchar *buffer;
  874. XFILE *fd;
  875. Xint  entries;
  876. X{
  877. X    /** Almost the same as the above routine, this one deals with lines
  878. X        that have multiple colons on them.  It must first figure out how
  879. X        many spaces to allocate for each field then prompts the user, 
  880. X        line by line, for the entries...
  881. X    **/
  882. X
  883. X    char mybuffer[SLEN], prompt[SLEN], spaces[SLEN];
  884. X    register int  field_size, i, j, offset = 0, extra_tabs = 0;
  885. X
  886. X    dprint2(7, "prompt-for-multiple [%d] -entries \"%s\"\n", entries,
  887. X        buffer);
  888. X
  889. X    strcpy(prompt, "No Prompt Available:");
  890. X
  891. X    while (entries--) {
  892. X      j=0; 
  893. X      i = chloc((char *) buffer + offset, COLON) + 1;
  894. X      while (j < i - 1) {
  895. X        prompt[j] = buffer[j+offset];
  896. X        j++;
  897. X      }
  898. X      prompt[j] = '\0';
  899. X
  900. X      field_size = 0;
  901. X
  902. X      while (whitespace(buffer[i+offset])) {
  903. X        if (buffer[i+offset] == TAB) {
  904. X          field_size += 8 - (i % 8);
  905. X          extra_tabs += (8 - (i % 8)) - 1;
  906. X        }
  907. X        else
  908. X          field_size += 1;
  909. X        i++;
  910. X      }
  911. X
  912. X      offset += i;
  913. X    
  914. X      if (field_size == 0)     /* probably last prompt in line... */
  915. X        field_size = 80 - (offset + extra_tabs);
  916. X
  917. X      prompt_for_sized_entry(prompt, mybuffer, field_size);
  918. X
  919. X      spaces[0] = ' ';    /* always at least ONE trailing space... */
  920. X      spaces[1] = '\0';
  921. X
  922. X      for (j = strlen(mybuffer); j < field_size; j++)
  923. X        strcat(spaces, " ");
  924. X
  925. X      fprintf(fd, "%s: %s%s", prompt, mybuffer, spaces);
  926. X      fflush(fd);
  927. X    }
  928. X
  929. X    fprintf(fd, "\n");
  930. X}
  931. X
  932. Xprompt_for_sized_entry(prompt, buffer, field_size)
  933. Xchar *prompt, *buffer;
  934. Xint   field_size;
  935. X{
  936. X    /* This routine prompts for an entry of the size specified. */
  937. X
  938. X    register int i;
  939. X
  940. X    dprint2(7, "prompt-for-sized-entry \"%s\" %d chars\n", 
  941. X        prompt, field_size);
  942. X
  943. X    printf("%s : ", prompt);
  944. X    
  945. X    for (i=0;i<field_size; i++)
  946. X      putchar('_');
  947. X    for (i=0;i<field_size; i++)
  948. X      putchar(BACKSPACE);
  949. X    fflush(stdout);
  950. X
  951. X    gets(buffer);
  952. X
  953. X    if (strlen(buffer) > field_size) buffer[field_size-1] = '\0';
  954. X}
  955. END_OF_src/forms.c
  956. if test 9070 -ne `wc -c <src/forms.c`; then
  957.     echo shar: \"src/forms.c\" unpacked with wrong size!?
  958. fi
  959. # end of overwriting check
  960. fi
  961. echo shar: Extracting \"src/return_addr.c\" \(9579 characters\)
  962. if test -f src/return_addr.c ; then 
  963.   echo shar: Will not over-write existing file \"src/return_addr.c\"
  964. else
  965. sed "s/^X//" >src/return_addr.c <<'END_OF_src/return_addr.c'
  966. X/**            return_addr.c            **/
  967. X
  968. X/** This set of routines is used to generate real return addresses
  969. X    and also return addresses suitable for inclusion in a users
  970. X    alias files (ie optimized based on the pathalias database).
  971. X
  972. X    Added: the ability to respond to messages that were originally
  973. X    sent by the user (That is, the "savemail" file format messages)
  974. X    by reading the return address, seeing the "To:" prefix and then
  975. X    calling the "get_existing_return()" routine.  Currently this does
  976. X    NOT include any "Cc" lines in the message, just the "To:" line(s).
  977. X
  978. X    Also added the PREFER_UUCP stuff for listing reasonable addresses
  979. X    and such...*sigh*
  980. X
  981. X    These routines (C) Copyright 1986 Dave Taylor
  982. X**/
  983. X
  984. X#include "headers.h"
  985. X
  986. X#include <errno.h>
  987. X
  988. X#include <sys/types.h>
  989. X#include <sys/stat.h>
  990. X
  991. Xchar *shift_lower();
  992. X
  993. Xextern int errno;
  994. X
  995. Xchar *error_name(), *strcat(), *strcpy();
  996. X
  997. X#ifndef DONT_OPTIMIZE_RETURN
  998. X
  999. Xoptimize_return(address)
  1000. Xchar *address;
  1001. X{
  1002. X    /** This routine tries to create an optimized address, that is,
  1003. X        an address that has the minimal information needed to 
  1004. X        route a message to this person given the current path
  1005. X        database...
  1006. X    **/
  1007. X
  1008. X#ifdef PREFER_UUCP
  1009. X
  1010. X    /** first off, let's see if we need to strip off the localhost
  1011. X        address crap... **/
  1012. X
  1013. X    /** if we have a uucp part (e.g.a!b) AND the bogus address...**/
  1014. X
  1015. X    if (chloc(address,'!') != -1 && in_string(address, BOGUS_INTERNET))
  1016. X      address[strlen(address)-strlen(BOGUS_INTERNET)] = '\0';
  1017. X#endif
  1018. X
  1019. X    /** next step is to figure out what sort of address we have... **/
  1020. X
  1021. X    if (chloc(address, '%') != -1)
  1022. X      optimize_cmplx_arpa(address);
  1023. X    else if (chloc(address, '@') != -1)
  1024. X      optimize_arpa(address);
  1025. X    else
  1026. X      optimize_usenet(address);
  1027. X}
  1028. X
  1029. Xoptimize_cmplx_arpa(address)
  1030. Xchar *address;
  1031. X{
  1032. X    /** Try to optimize a complex ARPA address.  A Complex address is one 
  1033. X        that contains '%' (deferred '@').  For example:  
  1034. X        veeger!hpcnof!hplabs!joe%sytech@syte  
  1035. X        is a complex address (no kidding, right?).  The algorithm for 
  1036. X        trying to resolve it is to move all the way to the right, then 
  1037. X        back up left until the first '!' then from there to the SECOND 
  1038. X        metacharacter on the right is the name@host address...(in this 
  1039. X            example, it would be "joe%sytech").  Check this in the routing
  1040. X        table.  If not present, keep backing out to the right until we
  1041. X        find a host that is present, or we hit the '@' sign.  Once we
  1042. X        have a 'normal' ARPA address, hand it to optimize_arpa().
  1043. X    **/
  1044. X
  1045. X    char name[SHORT_SLEN], buffer[SLEN], junk[SLEN];
  1046. X    char host[SHORT_SLEN], old_host[SHORT_SLEN];
  1047. X    register int i, loc, nloc = 0, hloc = 0, passes = 1;
  1048. X
  1049. X    /** first off, get the name%host... **/
  1050. X
  1051. X    for (loc = strlen(address)-1; address[loc] != '!' && loc > -1; loc--)
  1052. X       ;
  1053. X
  1054. X    while (address[loc] != '\0') {
  1055. X
  1056. X      if (passes == 1) {
  1057. X        loc++;
  1058. X
  1059. X        while (address[loc] != '%' && address[loc] != '@')
  1060. X          name[nloc++] = address[loc++];
  1061. X      }
  1062. X      else {
  1063. X        for (i=0; old_host[i] != '\0'; i++)
  1064. X          name[nloc++] = old_host[i];
  1065. X      }
  1066. X
  1067. X      loc++;
  1068. X  
  1069. X      while (address[loc] != '%' && address[loc] != '@')
  1070. X        host[hloc++] = address[loc++];
  1071. X  
  1072. X      host[hloc] = name[nloc] = '\0';
  1073. X
  1074. X      strcpy(old_host, host);
  1075. X      remove_domains(host);
  1076. X
  1077. X      sprintf(buffer, "%s@%s", name, shift_lower(host));
  1078. X
  1079. X      if (expand_site(buffer, junk) == 0) {
  1080. X        strcpy(address, buffer);
  1081. X        return;
  1082. X      }
  1083. X      else if (address[loc] == '@') {
  1084. X        optimize_arpa(address);
  1085. X        return;
  1086. X      }
  1087. X      else
  1088. X        name[nloc++] = '%';    /* for next pass through */
  1089. X
  1090. X    }
  1091. X}
  1092. X
  1093. Xoptimize_arpa(address)
  1094. Xchar *address;
  1095. X{
  1096. X    /** Get an arpa address and simplify it to the minimal
  1097. X        route needed to get mail to this person... **/
  1098. X
  1099. X    char name[SHORT_SLEN], buffer[SLEN], junk[SLEN];
  1100. X    char host[SHORT_SLEN];
  1101. X    register int loc, nloc = 0, hloc = 0, at_sign = 0;
  1102. X
  1103. X    for (loc = strlen(address)-1; address[loc] != '!' && loc > -1; loc--) {
  1104. X      if (address[loc] == '@')
  1105. X         at_sign++;    /* remember this spot! */
  1106. X      else if (at_sign)
  1107. X        name[nloc++] = address[loc];
  1108. X      else
  1109. X        host[hloc++] = address[loc];
  1110. X    }
  1111. X
  1112. X    name[nloc] = host[hloc] = '\0';
  1113. X
  1114. X    reverse(name);
  1115. X    reverse(host);
  1116. X
  1117. X    remove_domains(host);
  1118. X
  1119. X    sprintf(buffer,"%s@%s", name, shift_lower(host));
  1120. X
  1121. X    if (expand_site(buffer, junk) == 0) {
  1122. X      strcpy(address, buffer);
  1123. X      return;
  1124. X    }
  1125. X
  1126. X    optimize_usenet(address);    /* that didn't work... */
  1127. X}
  1128. X    
  1129. Xoptimize_usenet(address)
  1130. Xchar *address;
  1131. X{
  1132. X    /** optimize the return address IFF it's a standard usenet
  1133. X        address...
  1134. X    **/
  1135. X
  1136. X    char name[SHORT_SLEN],  new_address[SLEN], buffer[SLEN], junk[SLEN];
  1137. X    register int loc, nloc = 0, aloc = 0, passes = 1;
  1138. X
  1139. X    for (loc = strlen(address)-1; address[loc] != '!' && loc > -1; loc--) 
  1140. X      name[nloc++] = address[loc];
  1141. X    name[nloc] = '\0';
  1142. X
  1143. X    reverse(name);
  1144. X
  1145. X    new_address[0] = '\0';    
  1146. X
  1147. X    /* got name, now get machine until we can get outta here */
  1148. X
  1149. X    while (loc > -1) {
  1150. X
  1151. X      new_address[aloc++] = address[loc--];    /* the '!' char */
  1152. X
  1153. X      while (address[loc] != '!' && loc > -1)
  1154. X        new_address[aloc++] = address[loc--];
  1155. X
  1156. X      new_address[aloc] = '\0';
  1157. X
  1158. X      strcpy(buffer, new_address);
  1159. X      reverse(buffer);
  1160. X    
  1161. X      if (expand_site(buffer, junk) == 0) {
  1162. X        if (passes == 1 && chloc(name, '@') == -1) {
  1163. X          buffer[strlen(buffer) - 1] = '\0';    /* remove '!' */
  1164. X          sprintf(address, "%s@%s", name, buffer);
  1165. X        }
  1166. X        else 
  1167. X          sprintf(address, "%s%s", buffer, name);
  1168. X        return;        /* success! */
  1169. X      }
  1170. X      passes++;
  1171. X    }
  1172. X
  1173. X    return;        /* nothing to do! */
  1174. X}
  1175. X
  1176. X#endif    not DONT_OPTIMIZE_RETURN
  1177. X
  1178. Xget_return(buffer)
  1179. Xchar *buffer;
  1180. X{
  1181. X    /** reads 'current' message again, building up the full return 
  1182. X        address including all machines that might have forwarded 
  1183. X        the message.  **/
  1184. X
  1185. X    char buf[LONG_SLEN], name1[SLEN], name2[SLEN], lastname[SLEN];
  1186. X    char hold_return[LONG_SLEN], alt_name2[SLEN];
  1187. X    int ok = 1, lines;
  1188. X
  1189. X    /* now initialize all the char buffers [thanks Keith!] */
  1190. X
  1191. X    buf[0] = name1[0] = name2[0] = lastname[0] = '\0';
  1192. X    hold_return[0] = alt_name2[0] = '\0';
  1193. X
  1194. X    /** get to the first line of the message desired **/
  1195. X
  1196. X    if (fseek(mailfile, header_table[current-1].offset, 0) == -1) {
  1197. X    dprint3(1,"Error: seek %ld bytes into file hit errno %s (%s)", 
  1198. X        header_table[current-1].offset, error_name(errno), 
  1199. X            "get_return");
  1200. X    error2("couldn't seek %d bytes into file (%s)",
  1201. X           header_table[current-1].offset, error_name(errno));
  1202. X    return;
  1203. X    }
  1204. X 
  1205. X    /** okay!  Now we're there!  **/
  1206. X
  1207. X    lines = header_table[current-1].lines;
  1208. X    
  1209. X    buffer[0] = '\0';
  1210. X
  1211. X    while (ok && lines--) {
  1212. X      ok = (int) (fgets(buf, LONG_SLEN, mailfile) != NULL);
  1213. X      if (first_word(buf, "From ")) {
  1214. X    sscanf(buf, "%*s %s", hold_return);
  1215. X      }
  1216. X      else if (first_word(buf, ">From")) {
  1217. X    sscanf(buf,"%*s %s %*s %*s %*s %*s %*s %*s %*s %s %s", 
  1218. X           name1, name2, alt_name2);
  1219. X    if (strcmp(name2, "from") == 0)
  1220. X      strcpy(name2, alt_name2);
  1221. X    add_site(buffer, name2, lastname);
  1222. X      }
  1223. X
  1224. X#ifdef USE_EMBEDDED_ADDRESSES
  1225. X
  1226. X      else if (first_word(buf, "From:")) {
  1227. X    get_address_from("From:", buf, hold_return);
  1228. X      }
  1229. X      else if (first_word(buf, "Reply-To:")) {
  1230. X    get_address_from("Reply-To:", buf, buffer);
  1231. X    return;
  1232. X      }
  1233. X
  1234. X#endif
  1235. X
  1236. X      else if (strlen(buf) < 2)    /* done with header */
  1237. X         lines = 0; /* let's get outta here!  We're done!!! */
  1238. X     }
  1239. X
  1240. X    if (buffer[0] == '\0')
  1241. X      strcpy(buffer, hold_return); /* default address! */
  1242. X    else
  1243. X      add_site(buffer, name1, lastname);    /* get the user name too! */
  1244. X
  1245. X    if (first_word(buffer, "To:"))         /* response to savecopy!  */
  1246. X       get_existing_address(buffer);
  1247. X    else 
  1248. X       /* if we have a space character, or we DON'T have '!' or '@' chars */
  1249. X
  1250. X       if (chloc(header_table[current-1].from, ' ') >= 0 ||
  1251. X       (chloc(header_table[current-1].from, '!') < 0 &&
  1252. X        chloc(header_table[current-1].from, '@') < 0)) {
  1253. X
  1254. X     sprintf(name2, " (%s)", header_table[current-1].from);
  1255. X     strcat(buffer, name2);
  1256. X       }
  1257. X
  1258. X}
  1259. X
  1260. Xget_existing_address(buffer)
  1261. Xchar *buffer;
  1262. X{
  1263. X    /** This routine is called when the message being responded to has
  1264. X        "To:xyz" as the return address, signifying that this message is
  1265. X        an automatically saved copy of a message previously sent.  The
  1266. X        correct to address can be obtained fairly simply by reading the
  1267. X        To: header from the message itself and (blindly) copying it to
  1268. X        the given buffer.  Note that this header can be either a normal
  1269. X        "To:" line (Elm) or "Originally-To:" (previous versions e.g.Msg)
  1270. X    **/
  1271. X
  1272. X    char mybuf[LONG_STRING];
  1273. X    register char ok = 1, in_to = 0;
  1274. X
  1275. X    buffer[0] = '\0';
  1276. X
  1277. X    /** first off, let's get to the beginning of the message... **/
  1278. X
  1279. X        if (fseek(mailfile, header_table[current-1].offset, 0) == -1) {
  1280. X        dprint3(1,"Error: seek %ld bytes into file hit errno %s (%s)", 
  1281. X            header_table[current-1].offset, error_name(errno), 
  1282. X            "get_existing_address");
  1283. X        error2("couldn't seek %d bytes into the file (%s)",
  1284. X               header_table[current-1].offset, error_name(errno));
  1285. X        return;
  1286. X        }
  1287. X 
  1288. X        /** okay!  Now we're there!  **/
  1289. X
  1290. X        while (ok) {
  1291. X          ok = (int) (fgets(mybuf, LONG_STRING, mailfile) != NULL);
  1292. X      no_ret(mybuf);    /* remove return character */
  1293. X
  1294. X          if (first_word(mybuf, "To: ")) {
  1295. X        in_to = TRUE;
  1296. X        strcpy(buffer, (char *) mybuf + strlen("To: "));
  1297. X          }
  1298. X      else if (first_word(mybuf, "Original-To:")) {
  1299. X        in_to = TRUE;
  1300. X        strcpy(buffer, (char *) mybuf + strlen("Original-To:"));
  1301. X      }
  1302. X      else if (in_to && whitespace(mybuf[0])) {
  1303. X        strcat(buffer, " ");        /* tag a space in   */
  1304. X        strcat(buffer, (char *) mybuf + 1);    /* skip 1 whitespace */
  1305. X      }
  1306. X      else if (strlen(mybuf) < 2)
  1307. X        return;                /* we're done for!  */
  1308. X      else
  1309. X        in_to = 0;
  1310. X      }
  1311. X}
  1312. END_OF_src/return_addr.c
  1313. if test 9579 -ne `wc -c <src/return_addr.c`; then
  1314.     echo shar: \"src/return_addr.c\" unpacked with wrong size!?
  1315. fi
  1316. # end of overwriting check
  1317. fi
  1318. echo shar: Extracting \"src/save_opts.c\" \(9187 characters\)
  1319. if test -f src/save_opts.c ; then 
  1320.   echo shar: Will not over-write existing file \"src/save_opts.c\"
  1321. else
  1322. sed "s/^X//" >src/save_opts.c <<'END_OF_src/save_opts.c'
  1323. X/**            save_opts.c            **/
  1324. X
  1325. X/** This file contains the routine needed to allow the users to change the
  1326. X    Elm parameters and then save the configuration in a ".elmrc" file in
  1327. X    their home directory.  With any luck this will allow them never to have
  1328. X    to actually EDIT the file!!
  1329. X
  1330. X    (C) Copyright 1986, Dave Taylor
  1331. X**/
  1332. X
  1333. X#include "headers.h"
  1334. X#include <errno.h>
  1335. X
  1336. X#undef onoff
  1337. X#define   onoff(n)    (n == 1? "ON":"OFF")
  1338. X
  1339. X#define absolute(x)        ((x) < 0? -(x) : (x))
  1340. X
  1341. Xextern  int errno;
  1342. X
  1343. Xchar *error_name(), *nameof(), *sort_name();
  1344. Xlong  ftell();
  1345. X
  1346. X#include "save_opts.h"
  1347. X
  1348. XFILE *elminfo;        /* informational file as needed... */
  1349. X
  1350. Xsave_options()
  1351. X{
  1352. X    /** Save the options currently specified to a file.  This is a
  1353. X        fairly complex routine since it tries to put in meaningful
  1354. X        comments and such as it goes along.  The comments are
  1355. X        extracted from the file ELMRC_INFO as defined in the sysdefs.h
  1356. X        file.  THAT file has the format;
  1357. X
  1358. X        varname
  1359. X          <comment>
  1360. X          <comment>
  1361. X        <blank line>
  1362. X
  1363. X        and each comment is written ABOVE the variable to be added.  This
  1364. X        program also tries to make 'pretty' stuff like the alternatives
  1365. X        and such.
  1366. X    **/
  1367. X
  1368. X    FILE *newelmrc; 
  1369. X    char  oldfname[SLEN], newfname[SLEN];
  1370. X
  1371. X    sprintf(newfname, "%s/%s", home, elmrcfile);
  1372. X    sprintf(oldfname, "%s/.old%s", home, elmrcfile);
  1373. X
  1374. X    /** first off, let's see if they already HAVE a .elmrc file **/
  1375. X
  1376. X    if (access(newfname, ACCESS_EXISTS) != -1) {
  1377. X      /** YES!  Copy it to the file ".old.elmrc".. **/
  1378. X      (void) unlink(oldfname);
  1379. X      (void) link(newfname, oldfname);
  1380. X          (void) unlink(newfname);
  1381. X      (void) chown(oldfname, userid, groupid);
  1382. X    }
  1383. X
  1384. X    /** now let's open the datafile if we can... **/
  1385. X
  1386. X    if ((elminfo = fopen(ELMRC_INFO, "r")) == NULL) 
  1387. X      error1("Warning: saving without comments - can't get to %s", 
  1388. X          ELMRC_INFO);
  1389. X
  1390. X    /** next, open the new .elmrc file... **/
  1391. X
  1392. X    if ((newelmrc = fopen(newfname, "w")) == NULL) {
  1393. X       error2("Can't save configuration: can't write to %s [%s]",
  1394. X           newfname, error_name(errno));
  1395. X       return;
  1396. X    }
  1397. X    
  1398. X    save_user_options(elminfo, newelmrc);
  1399. X
  1400. X    error1("Options saved in file %s", newfname);
  1401. X}
  1402. X
  1403. Xsave_user_options(elminfo_fd, newelmrc)
  1404. XFILE *elminfo_fd, *newelmrc;
  1405. X{
  1406. X    /** save the information in the file.  If elminfo_fd == NULL don't look
  1407. X        for comments!
  1408. X    **/
  1409. X
  1410. X    if (elminfo_fd != NULL) 
  1411. X      build_offset_table(elminfo_fd);
  1412. X
  1413. X    fprintf(newelmrc,     
  1414. X              "#\n# .elmrc - options file for the Elm mail system\n#\n");
  1415. X
  1416. X    if (strlen(full_username) > 0)
  1417. X      fprintf(newelmrc, "# Saved automatically by Elm %s for %s\n#\n\n",
  1418. X          VERSION, full_username);
  1419. X    else
  1420. X      fprintf(newelmrc, "# Saved automatically by Elm %s\n#\n\n", VERSION);
  1421. X
  1422. X    save_option_string(CALENDAR, calendar_file, newelmrc, FALSE);
  1423. X    save_option_string(EDITOR, editor, newelmrc, FALSE);
  1424. X    save_option_string(FULLNAME, full_username, newelmrc, FALSE);
  1425. X    save_option_string(MAILBOX, nameof(mailbox), newelmrc, FALSE);
  1426. X    save_option_string(MAILDIR, folders, newelmrc, FALSE);
  1427. X    save_option_string(PAGER, pager, newelmrc, FALSE);
  1428. X    save_option_string(PREFIX, prefixchars, newelmrc, TRUE);
  1429. X    save_option_string(PRINT, printout, newelmrc, FALSE);
  1430. X    save_option_string(SAVEMAIL, savefile, newelmrc, FALSE);
  1431. X    save_option_string(SHELL, shell, newelmrc, FALSE);
  1432. X
  1433. X    save_option_string(LOCALSIGNATURE, local_signature, newelmrc, FALSE);
  1434. X    save_option_string(REMOTESIGNATURE, remote_signature, newelmrc, FALSE);
  1435. X
  1436. X    save_option_sort(SORTBY, sortby, newelmrc);
  1437. X
  1438. X    save_option_on_off(ALWAYSDELETE, always_del, newelmrc);
  1439. X    save_option_on_off(ALWAYSLEAVE, always_leave, newelmrc);
  1440. X    save_option_on_off(ARROW, arrow_cursor, newelmrc);
  1441. X    save_option_on_off(AUTOCOPY, auto_copy, newelmrc);
  1442. X
  1443. X    save_option_number(BOUNCEBACK, bounceback, newelmrc);
  1444. X
  1445. X    save_option_on_off(COPY, auto_cc, newelmrc);
  1446. X/**    save_option_on_off(EDITOUT, edit_outbound, newelmrc);             **/
  1447. X    save_option_on_off(FORMS, allow_forms, newelmrc);
  1448. X    save_option_on_off(KEYPAD, hp_terminal, newelmrc);
  1449. X    save_option_on_off(MENU, mini_menu, newelmrc);
  1450. X    save_option_on_off(MOVEPAGE, move_when_paged, newelmrc);
  1451. X    save_option_on_off(NAMES, names_only, newelmrc);
  1452. X    save_option_on_off(NOHEADER, noheader, newelmrc);
  1453. X    save_option_on_off(POINTNEW, point_to_new, newelmrc);
  1454. X    save_option_on_off(RESOLVE, resolve_mode, newelmrc);
  1455. X    save_option_on_off(SAVENAME, save_by_name, newelmrc);
  1456. X    save_option_on_off(SOFTKEYS, hp_softkeys, newelmrc);
  1457. X
  1458. X    save_option_number(TIMEOUT, timeout, newelmrc);
  1459. X
  1460. X    save_option_on_off(TITLES, title_messages, newelmrc);
  1461. X
  1462. X    save_option_number(USERLEVEL, user_level, newelmrc);
  1463. X
  1464. X    save_option_on_off(WARNINGS, warnings, newelmrc);
  1465. X    save_option_on_off(WEED, filter, newelmrc);
  1466. X
  1467. X    save_option_weedlist(WEEDOUT, weedlist, newelmrc);
  1468. X    save_option_alternatives(ALTERNATIVES, alternative_addresses, newelmrc);
  1469. X
  1470. X    fflush(elminfo_fd);    /* make sure we're clear... */
  1471. X    fclose(elminfo_fd);
  1472. X}
  1473. X
  1474. Xsave_option_string(index, value, fd, underscores)
  1475. Xint index, underscores;
  1476. Xchar *value;
  1477. XFILE *fd;
  1478. X{
  1479. X    /** Save a string option to the file... only subtlety is when we
  1480. X        save strings with spaces in 'em - translate to underscores!
  1481. X    **/
  1482. X
  1483. X    register int i;
  1484. X    char     buffer[SLEN];
  1485. X    
  1486. X    if (strlen(value) == 0) return;        /* why bother? */
  1487. X
  1488. X    add_comment(index, fd);
  1489. X    
  1490. X    strcpy(buffer, value);
  1491. X
  1492. X    if (underscores)
  1493. X      for (i=0; i < strlen(buffer); i++)
  1494. X        if (buffer[i] == SPACE) buffer[i] = '_';
  1495. X
  1496. X    fprintf(fd, "%s = %s\n\n", save_info[index].name, buffer);
  1497. X}
  1498. X       
  1499. Xsave_option_sort(index, value, fd)
  1500. Xint index;
  1501. Xchar *value;
  1502. XFILE *fd;
  1503. X{
  1504. X    /** save the current sorting option to a file **/
  1505. X
  1506. X    add_comment(index, fd);
  1507. X
  1508. X    fprintf(fd, "%s = %s\n\n", save_info[index].name,
  1509. X        sort_name(SHORT));
  1510. X}
  1511. X
  1512. Xsave_option_number(index, value, fd)
  1513. Xint index, value;
  1514. XFILE *fd;
  1515. X{
  1516. X    /** Save a binary option to the file - boy is THIS easy!! **/
  1517. X
  1518. X    add_comment(index, fd);
  1519. X    
  1520. X    fprintf(fd, "%s = %d\n\n", save_info[index].name, value);
  1521. X}
  1522. X
  1523. Xsave_option_on_off(index, value, fd)
  1524. Xint index, value;
  1525. XFILE *fd;
  1526. X{
  1527. X    /** Save a binary option to the file - boy is THIS easy!! **/
  1528. X
  1529. X    add_comment(index, fd);
  1530. X    
  1531. X    fprintf(fd, "%s = %s\n\n", save_info[index].name, onoff(value));
  1532. X}
  1533. X
  1534. Xsave_option_weedlist(index, list, fd)
  1535. Xint index;
  1536. Xchar *list[];
  1537. XFILE *fd;
  1538. X{
  1539. X    /** save a list of weedout headers to the file **/
  1540. X
  1541. X    int length_so_far = 0, i;
  1542. X
  1543. X    add_comment(index, fd);
  1544. X
  1545. X    length_so_far = strlen(save_info[index].name) + 4;
  1546. X
  1547. X    fprintf(fd, "%s = ", save_info[index].name);
  1548. X
  1549. X    /** first off, skip till we get past the default list **/
  1550. X
  1551. X    for (i = 0; i < weedcount; i++) 
  1552. X      if (strcmp(weedlist[i],"*end-of-defaults*") == 0)
  1553. X        break;
  1554. X
  1555. X    while (i < weedcount) {
  1556. X      if (strlen(weedlist[i]) + length_so_far > 78) {
  1557. X        fprintf(fd, "\n\t");
  1558. X        length_so_far = 8;
  1559. X      }
  1560. X      fprintf(fd, "\"%s\" ", weedlist[i]);
  1561. X      length_so_far += (strlen(weedlist[i]) + 4);
  1562. X      i++;
  1563. X    }
  1564. X    fprintf(fd, "\n\n");
  1565. X}
  1566. X
  1567. Xsave_option_alternatives(index, list, fd)
  1568. Xint index;
  1569. Xstruct addr_rec *list;
  1570. XFILE *fd;
  1571. X{
  1572. X    /** save a list of options to the file **/
  1573. X    int length_so_far = 0;
  1574. X    struct addr_rec     *alternate;
  1575. X
  1576. X    if (list == NULL) return;    /* nothing to do! */
  1577. X
  1578. X    add_comment(index, fd);
  1579. X
  1580. X    alternate = list;    /* don't LOSE the top!! */
  1581. X
  1582. X    length_so_far = strlen(save_info[index].name) + 4;
  1583. X
  1584. X    fprintf(fd, "%s = ", save_info[index].name);
  1585. X
  1586. X    while (alternate != NULL) {
  1587. X      if (strlen(alternate->address) + length_so_far > 78) {
  1588. X        fprintf(fd, "\n\t");
  1589. X        length_so_far = 8;
  1590. X      }
  1591. X      fprintf(fd, "%s  ", alternate->address);
  1592. X      length_so_far += (strlen(alternate->address) + 3);
  1593. X      alternate = alternate->next;
  1594. X    }
  1595. X    fprintf(fd, "\n\n");
  1596. X}
  1597. X
  1598. Xadd_comment(index, fd)
  1599. Xint index;
  1600. XFILE *fd;
  1601. X{    
  1602. X    /** get to and add the comment to the file **/
  1603. X    char buffer[SLEN];
  1604. X
  1605. X    /** first off, add the comment from the comment file, if available **/
  1606. X
  1607. X    if (save_info[index].offset > 0L) {
  1608. X      if (fseek(elminfo, save_info[index].offset, 0)) {
  1609. X        dprint2(1,"** error %s seeking to %ld in elm-info file!\n",
  1610. X             error_name(errno), save_info[index].offset);
  1611. X      }
  1612. X      else while (fgets(buffer, SLEN, elminfo) != NULL) {
  1613. X        if (buffer[0] != '#') 
  1614. X           break;
  1615. X        else
  1616. X           fprintf(fd, "%s", buffer);
  1617. X      }
  1618. X    }
  1619. X}
  1620. X
  1621. Xbuild_offset_table(elminfo_fd)
  1622. XFILE *elminfo_fd;
  1623. X{
  1624. X    /** read in the info file and build the table of offsets.
  1625. X        This is a rather laborious puppy, but at least we can
  1626. X        do a binary search through the array for each element and
  1627. X        then we have it all at once!
  1628. X    **/
  1629. X
  1630. X    char line_buffer[SLEN];
  1631. X    
  1632. X    while (fgets(line_buffer, SLEN, elminfo_fd) != NULL) {
  1633. X      if (strlen(line_buffer) > 1)
  1634. X        if (line_buffer[0] != '#' && !whitespace(line_buffer[0])) {
  1635. X           no_ret(line_buffer);
  1636. X           if (find_and_store_loc(line_buffer, ftell(elminfo_fd))) {
  1637. X             dprint1(1, "** Couldn't find and store \"%s\" **\n", 
  1638. X             line_buffer);
  1639. X           }
  1640. X        }
  1641. X    }
  1642. X}
  1643. X
  1644. Xfind_and_store_loc(name, offset)
  1645. Xchar *name;
  1646. Xlong  offset;
  1647. X{
  1648. X    /** given the name and offset, find it in the table and store it **/
  1649. X
  1650. X    register int first = 0, last, middle, compare;
  1651. X
  1652. X    last = NUMBER_OF_SAVEABLE_OPTIONS;
  1653. X
  1654. X    while (first <= last) {
  1655. X
  1656. X      middle = (first+last) / 2;
  1657. X
  1658. X      if ((compare = strcmp(name, save_info[middle].name)) < 0) /* a < b */
  1659. X        last = middle - 1;
  1660. X      else if (compare == 0) {                    /* a = b */
  1661. X        save_info[middle].offset = offset;
  1662. X        return(0);
  1663. X      }
  1664. X      else  /* greater */                        /* a > b */
  1665. X        first = middle + 1; 
  1666. X    }
  1667. X
  1668. X    return(-1);
  1669. X}
  1670. END_OF_src/save_opts.c
  1671. if test 9187 -ne `wc -c <src/save_opts.c`; then
  1672.     echo shar: \"src/save_opts.c\" unpacked with wrong size!?
  1673. fi
  1674. # end of overwriting check
  1675. fi
  1676. echo shar: End of archive 9 \(of 19\).
  1677. cp /dev/null ark9isdone
  1678. DONE=true
  1679. for I in 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 ; do
  1680.     if test ! -f ark${I}isdone ; then
  1681.     echo shar: You still need to run archive ${I}.
  1682.     DONE=false
  1683.     fi
  1684. done
  1685. if test "$DONE" = "true" ; then
  1686.     echo You have unpacked all 19 archives.
  1687.     echo "See the Instructions file"
  1688.     rm -f ark[1-9]isdone ark[1-9][0-9]isdone
  1689. fi
  1690. ##  End of shell archive.
  1691. exit 0
  1692.